home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 1 Issue 2 / PDCD-1 - Issue 02.iso / _utilities / utilities / 001 / qzapsrc / !QZap_c_QMain < prev    next >
Encoding:
Text File  |  1994-11-01  |  2.0 KB  |  83 lines
  1. /*
  2.  * This is !QZap re-written in C.
  3.  * Since 1991 I've got more accustomed to higher level languages, and I'm
  4.  * not into wrestling with assembler.  Although C is not exactly state of
  5.  * the art, it does beat assembler.  And I don't see an Ada compiler for
  6.  * ARM anywhere (says he, waiting impatiently for GNAT...)
  7.  *
  8.  */
  9.  
  10. #define QMain
  11.  
  12. #include "QMain.h"
  13. #include "QInitialise.h"
  14. #include "QClosedown.h"
  15. #include "QMouseclick.h"
  16. #include "QUsermessage.h"
  17. #include "QMenuselection.h"
  18. #include "QOpenwindow.h"
  19. #include "QClosewindow.h"
  20. #include "QRedraw.h"
  21. #include "QScrollrequest.h"
  22. #include "QUserdragbox.h"
  23. #include "QNullevent.h"
  24. #include "QAckmessage.h"
  25. #include "QKeypressed.h"
  26.  
  27.  
  28. int main ()
  29. {
  30.   Initialise();
  31.   while (!Quit) {
  32.     Event=wimp_poll(Mask, &Block, (int *)NULL);
  33.     switch (Event) {
  34.       case wimp_NULL_REASON_CODE:
  35.         Nullevent(&Block);
  36.         break;
  37.       case wimp_REDRAW_WINDOW_REQUEST:
  38.         Redraw(&Block);
  39.         break;
  40.       case wimp_OPEN_WINDOW_REQUEST:
  41.         Openwindow(&Block);
  42.         break;
  43.       case wimp_CLOSE_WINDOW_REQUEST:
  44.         Closewindow(&Block);
  45.         break;
  46.       case wimp_POINTER_LEAVING_WINDOW: break;
  47.       case wimp_POINTER_ENTERING_WINDOW: break;
  48.       case wimp_MOUSE_CLICK:
  49.         Mouseclick(&Block);
  50.         break;
  51.       case wimp_USER_DRAG_BOX:
  52.         Userdragbox(&Block);
  53.         break;
  54.       case wimp_KEY_PRESSED:
  55.         Keypressed(&Block);
  56.         break;
  57.       case wimp_MENU_SELECTION:
  58.         Menuselection(&Block);
  59.         break;
  60.       case wimp_SCROLL_REQUEST:
  61.         Scrollrequest(&Block);
  62.         break;
  63.       case wimp_LOSE_CARET: break;
  64.       case wimp_GAIN_CARET: break;
  65.       case wimp_POLLWORD_NON_ZERO: break;
  66.       case wimp_USER_MESSAGE:
  67.         Usermessage(&Block);
  68.         break;
  69.       case wimp_USER_MESSAGE_RECORDED:
  70.         Usermessage(&Block);
  71.         break;
  72.       case wimp_USER_MESSAGE_ACKNOWLEDGE:
  73.         Ackmessage(&Block);
  74.         break;
  75.       case wimp_POLL_WORD: break;
  76.       case wimp_POLLWORD_PRIORITY: break;
  77.       case wimp_FP: break;
  78.       default: ;
  79.     }
  80.   }
  81.   Closedown();
  82. }
  83.